﻿<br/>
<select name="url" title="随身地图" value="随身地图">
<option>江湖地图</option>
<option onpick='index1.asp?pid=1&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>原始森林</option>
<option onpick='index1.asp?pid=3&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>丰富矿山</option>
<option onpick='index1.asp?pid=4&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>浩瀚北海</option>
<option onpick='index1.asp?pid=2&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>魔鬼山洞</option>
<option onpick='index8.asp?pid=1&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>毒蛇山谷</option>
<option onpick='index8.asp?pid=2&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>死亡棺材</option>
<option onpick='index8.asp?pid=3&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>真云天空</option>
<option onpick='index8.asp?pid=4&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>蛮荒部落</option>
<option onpick='xl.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>修罗大厅</option>
<option onpick='tt.asp?pid=4&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>对战平台</option>
<option>个人地图</option>
<option onpick='myzb.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>我的装备</option>
<option onpick='mysx.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>个人属性</option>
<option onpick='mywp.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>我的包裹</option>
<option onpick='bang.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>魔法小屋</option>
<option onpick='tie.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>李四铁铺</option>
<option onpick='ke.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>张三客栈</option>
<option onpick='yao.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>王五药铺</option>
<option onpick='dan.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>陈六当铺</option>
</select><br/>
<%
set rsppp=Server.CreateObject("ADODB.Recordset")
rsstr="select lt from sx where ids="&ids
rsppp.open rsstr,liao,1,2
lt=rsppp("lt")
   rsppp.close
set rsppp=Nothing%>
<%if lt=0 then%>
<%Set Rsl = Server.CreateObject("Adodb.Recordset")
			Sqll = "SELECT top 3 id,txt,lid,tm,yc,name FROM l order by tm desc"
			Rsl.Open Sqll,liao,1,1
			if not (rsl.bof and rsl.eof)  then 
				if rsl.RecordCount>3 then
					aaaaa=3
				else
					aaaaa=rsl.RecordCount
				end if%>

				<%For i=1 to aaaaa
					If Rsl.Eof Then
						exit For
					end if%>
<%    
biaoti=left(rsl("tm"),30)
if len(rsl("tm"))>30 then
biaoti=biaoti
end if
%>
<%if rsl("yc")=0 then%>
					<a href="/userview.asp?id=<%=rsl("lid")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>"><%=rsl("name")%></a>说:<%=qingtian.utf8(rsl("txt"))%><%  
Response.write"("
Response.write right(""&biaoti,8)
Response.write")<br/>"
%>
<%else%>
[匿]:<%=rsl("txt")%><%  
Response.write"("
Response.write right(""&biaoti,8)
Response.write")<br/>"
%>
<%end if%>

				<%Rsl.MoveNext
				Next
			end if
			Rsl.close
			set rsl=nothing
%>
更多<a href='qliao.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>聊天记录></a><br/>
<input name="text<%=minute(now)%><%=second(now)%>" title="内容" type="text" format="*M" emptyok="true" maxlength="35" value=""/><br/>
是否匿名：
<select  name="yc">
<option  value="0">否</option>
<option  value="1">是</option>
</select><br/>
<anchor>快速发言<go href="addcl.asp?cc=<%=cc%>&amp;ve=<%=ve%>" method="post" accept-charset="utf-8"><postfield name="txt" value="$(text<%=minute(now)%><%=second(now)%>)"/><postfield name="yc" value="$(yc)"/><postfield name="lid" value="<%=qingtian.nid%>"/><postfield name="name" value=""/></go></anchor>.<a href='?cc=<%=cc%>&amp;ve=<%=ve%>&amp;tt=<%=time%>'>刷新</a>.<a href="lt.asp?pp=1&amp;cc=<%=cc%>&amp;ve=<%=ve%>">关闭</a><br/>
<%else%>
-----------<br/>
聊天频道:[<a href="lt.asp?pp=0&amp;cc=<%=cc%>&amp;ve=<%=ve%>">开启</a>]<br/>
<%end if%>